Reference the active user

Use GetNameSpace to return the Outlook NameSpace object from the Application object, and then use the CurrentUser property to return a Recipient object repesenting the active user, as shown in the following example.

Set myUser = Application.GetNameSpace("MAPI").CurrentUser